0 IFA$="_"THENSYS64738
1 PRINT "[147]POKING-";
5 S=49152:E=49520
6 FORP=S TOE
10 READ A$
20 L=ASC(MID$(A$,2,1)):T=T+L
30 H=ASC(MID$(A$,1,1)):T=T+H
40 L=L-48:IFL>9THENL=L-7
50 H=H-48:IFH>9THENH=H-7
55 B=H*16+L:IFB>=0ANDB<256THEN60
56 IFE=49520THENPRINT"ERROR IN LINE"INT((P-S)/8)+1000:END
57 PRINT"ERROR IN LINE"INT((P-S)/8)+1047:END
60 PRINT""P;
70 POKE P,B:NEXT
80 IFE=49520THENS=12288:E=12350:GOTO6
90 IFT<>48197THENPRINT"ERROR IN DATA":STOP
95 PRINT"OK DONE"
97 PRINT"[147]PRESS SPACE TO SEE DEMO OR _ TO QUIT"
98 GETA$:IFA$=""THEN98
99 IFA$="_"THENLOAD"MAGIC III",8,1
100 REM      EXAMPLE PROGRAM
110 POKE53269,255: REM ENABLE ALL SPRITES
120 FORI=2040TO2047:POKEI,192:NEXT:  REM DATA FROM BLOCK 192
130 FORI=53287TO53294:POKEI,RND(1)*8+1:NEXT:  REM COLOR SPRITES
132 POKE53281,0: REM SCREEN BLACK
135 SYS49152: REM ENABLE FAST/SPRITE
136 T=TI:PRINT"[147]HIT ANY KEY TO QUIT."
138 GETX$:IFX$<>""THENGOTO160
140 *0A*1B*2C*3D*4J*5K*6L*7M
155 GOTO138
160 GOTO97
1000 DATA A2,C7,A0,C0,8E,08,03,8C
1001 DATA 09,03,60,A9,E4,8D,08,03
1002 DATA A9,A7,8D,09,03,60,05,C1
1003 DATA 08,C1,11,C1,17,C1,20,C1
1004 DATA 23,C1,2C,C1,32,C1,3B,C1
1005 DATA 3E,C1,47,C1,4D,C1,56,C1
1006 DATA 59,C1,62,C1,68,C1,00,00
1007 DATA 01,00,02,00,04,00,08,00
1008 DATA 10,00,20,00,40,00,80,FE
1009 DATA 00,FD,00,FB,00,F7,00,EF
1010 DATA 00,DF,00,BF,00,7F,AD,10
1011 DATA D0,3D,38,C0,D0,1A,DE,00
1012 DATA D0,BD,00,D0,C9,FF,F0,01
1013 DATA 60,A9,57,9D,00,D0,AD,10
1014 DATA D0,1D,38,C0,8D,10,D0,60
1015 DATA DE,00,D0,BD,00,D0,C9,FF
1016 DATA F0,01,60,AD,10,D0,3D,47
1017 DATA C0,8D,10,D0,60,FE,01,D0
1018 DATA 60,AD,10,D0,3D,38,C0,D0
1019 DATA 10,FE,00,D0,F0,01,60,AD
1020 DATA 10,D0,1D,38,C0,8D,10,D0
1021 DATA 60,FE,00,D0,BD,00,D0,C9
1022 DATA 58,F0,01,60,A9,01,9D,00
1023 DATA D0,AD,10,D0,3D,47,C0,8D
1024 DATA 10,D0,60,DE,01,D0,60,20
1025 DATA 73,00,08,C9,AC,F0,04,28
1026 DATA 4C,E7,A7,28,20,73,00,38
1027 DATA E9,30,30,F4,C9,08,10,F0
1028 DATA 0A,AA,20,73,00,38,E9,41
1029 DATA 30,E6,C9,51,10,E2,0A,A8
1030 DATA B9,16,C0,8D,36,C0,B9,17
1031 DATA C0,8D,37,C0,20,02,C1,4C
1032 DATA C7,C0,6C,36,C0,4C,C3,C0
1033 DATA 20,C3,C0,20,91,C0,4C,C3
1034 DATA C0,20,C3,C0,4C,91,C0,20
1035 DATA 91,C0,20,C3,C0,20,91,C0
1036 DATA 4C,91,C0,20,91,C0,20,8D
1037 DATA C0,4C,91,C0,20,91,C0,4C
1038 DATA 8D,C0,20,8D,C0,20,91,C0
1039 DATA 4C,8D,C0,4C,8D,C0,20,8D
1040 DATA C0,20,56,C0,4C,8D,C0,20
1041 DATA 56,C0,4C,8D,C0,20,56,C0
1042 DATA 20,8D,C0,4C,56,C0,4C,56
1043 DATA C0,20,56,C0,20,C3,C0,4C
1044 DATA 56,C0,20,56,C0,4C,C3,C0
1045 DATA 20,C3,C0,20,56,C0,4C,C3
1046 DATA C0,00,7F,00,01,FF,C0,03
1047 DATA FF,E0,03,E7,E0,07,D9,F0
1048 DATA 07,DF,F0,07,D9,F0,03,E7
1049 DATA E0,03,FF,E0,03,FF,E0,02
1050 DATA FF,A0,01,7F,40,01,3E,40
1051 DATA 00,9C,80,00,9C,80,00,49
1052 DATA 00,00,49,00,00,3E,00,00
1053 DATA 3E,00,00,3E,00,00,1C,00
1054 DATA END